PASCAL/SAIL 1.1    6-SEP-79    COMPILATION LIST PRODUCED ON 11-OCT-79  AT 09:54:48     PAGE  1

    1   C;

PASCAL/SAIL 1.1    6-SEP-79         COMPILATION LIST PRODUCED ON 11-OCT-79  AT 09:54:48     PAGE   2

    1   (* $A+,D+*)
    2   PROGRAM RATES(OUTPUT);
    3   VAR C, C0, D, E, F, G, GL, I, N, Y : INTEGER;
    4   
    5   BEGIN
    6   WRITELN(OUTPUT,'YIELD  I     1         2         3         4         5         6');
    7   WRITELN(OUTPUT,'           =   0     =   0     =   0     =   0     =   0     =   0');
    8   WRITELN(OUTPUT,'INFLATION');
    9   FOR I := 1 TO 15 DO
   10       BEGIN
   11       WRITE(OUTPUT,I:3,'   ');
   12       FOR Y := 1 TO 6 DO
   13           BEGIN
   14           N := 1;  C := 500000; E := 10000;
   15           F := 0; C0 := 500000;
   16           WHILE (N <= 40) AND (C > 0) DO
   17               BEGIN
   18               G := (C*Y) DIV 100;
   19               D := G - E;
   20               IF (C < C0) AND (F = 0) THEN 
   21                   BEGIN
   22                   WRITE(OUTPUT,N:6);
   23                   F := 1;
   24                   END;
   25               C := C + D;
   26               E := ((E * I) DIV 100) + E;
   27               N := N + 1;
   28               END;
   29           IF D > 0 THEN WRITE(OUTPUT,'     -');
   30           IF N <= 40 THEN WRITE(OUTPUT,N:4) ELSE WRITE(OUTPUT,'   -');
   31           END;
   32       WRITELN (OUTPUT);
   33       END;
   34   END.

   0 ERROR(S) DETECTED

HIGHSEG:   0K +  197 WORD(S)
LOWSEG :   0K +  106 WORD(S)


RUNTIME: 00:00.185      ELAPSED: 00:00:03.7      1053 CHARS